SetPreference {Aluminum AA 2015}

SetPreference

Syntax

SapObject.SapModel.DesignAluminum.AA_2015.SetPreference

VB6 Procedure

Function SetPreference(ByVal Item As Long, ByVal Value As Double) As Long

Parameters

Item

This is an integer between 1 and 16, inclusive, indicating the preference item considered.

1 = Demand/capacity ratio limit

2 = Design Provision

3 = Lateral Factor

4 = Use Lateral Factor

5 = Bridge Type Structure

6 = PhiTy or OmegaTy safety factor

7 = PhiTr or OmegaTr safety factor

8 = PhiC or OmegaC safety factor

9 = PhiBo or OmegaBo safetyfactor

10 = PhiBr or OmegaBr safetyfactor

11 = PhicVo or OmegaVo safetyfactor

12 = PhiVr or OmegaVr safetyfactor

13 = Time history design

14 = Analysis Method

15 = Second Order Method

16 = Stiffness Reduction Method

Value

The value of the considered preference item.

1 = Demand/capacity ratio limit

Value > 0

2 = Design Provision

1 = LRFD

2 = ASD

3 = Lateral Factor

Value > 0

4 = Use Lateral Factor

1 = No

2 = Yes

5 = Bridge Type Structure

1 = No

2 = Yes

6 = PhiTy or OmegaTy safety factor

PhiTy: 0 < 
Value
 ≤ 1

OmegaTy: 1 ≤ 
Valu
e

7 = PhiTr or OmegaTr safety factor

PhiTr: 0 < 
Value
 ≤ 1

OmegaTr: 1 ≤ 
Valu
e

8 = PhiC or OmegaC safety factor

PhiC: 0 < 
Value
 ≤ 1

OmegaC: 1 ≤ 
Valu
e

9 = PhiBo or OmegaBo safetyfactor

PhiBo: 0 < 
Value
 ≤ 1

OmegaBo: 1 ≤ 
Valu
e

10 = PhiBr or OmegaBr safetyfactor

PhiBr: 0 < 
Value
 ≤ 1

OmegaBr: 1 ≤ 
Valu
e

11 = PhicVo or OmegaVo safetyfactor

PhiVo: 0 < 
Value
 ≤ 1

OmegaVo: 1 ≤ 
Valu
e

12 = PhiVr or OmegaVr safetyfactor

PhiVr: 0 < 
Value
 ≤ 1

OmegaVr: 1 ≤ 
Valu
e

13 = Time history design

1 = Envelopes

2 = Step-by-step

14 = Analysis method

1 = Direct Analysis Method

2 = Effective Length

3 = Limited 1st Order

15 = Second Order Method

1 = General 2nd Order

2 = Amplified 1st Order

16 = Stiffness Reduction method

1 = Tau-b Variable

2 = Tau-b Fixed

3 = No Modification

If Design Provision is 1 (LRFD), the Phi factors will be set to have the values of items 6 through 12. Otherwise, if Design Provision is 2 (ASD), the Omega factors will be set to have the values of items 6 through 12.

Remarks

This function sets the value of an aluminum design preference item.

The function returns zero if the item is successfully set; otherwise it returns a nonzero value.

VBA Example

Sub SetAluminumDesignPreferenceItemAA_2015()

 'dimension variables

 Dim SapObject as cOAPI

 Dim SapModel As cSapModel

 Dim ret As Long

 Dim Name As String

 'create Sap2000 object

 Set SapObject = CreateObject("CSI.SAP2000.API.SapObject")

 'start Sap2000 application

 SapObject.ApplicationStart

 'create SapModel object

 Set SapModel = SapObject.SapModel

 'initialize model

 ret = SapModel.InitializeNewModel

 'add aluminum material

 ret = SapModel.PropMaterial.AddQuick(Name, MATERIAL_ALUMINUM, , , MATERIAL_ALUMINUM_SUBTYPE_6061_T6)

 'create new aluminum frame section property

 ret = SapModel.PropFrame.SetISection("AI", Name , 18, 6, 0.5, 0.3, 6, 0.5)

 'create model from template

 ret = SapModel.File.New2DFrame(PortalFrame, 2, 144, 2, 288, True, "AI", "AI")

 'set aluminum design code

 ret = SapModel.DesignAluminum.SetCode("AA 2015")

 'set preference item

 ret = SapModel.DesignAluminum.AA_2015.SetPreference(1, 2)

 'close Sap2000

 SapObject.ApplicationExit False

 Set SapModel = Nothing

 Set SapObject = Nothing

 End Sub

Release Notes

Initial release in version 22.1.0

Added items 14 through 16 in version 27.0.0

See Also

GetPreference